-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x0 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2669
-- card count: 2
-- first card id: 3051
-- list block id: 2408
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 18592 bytes
-- stack block size: 2560 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x00000000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----

on setBaud rate
  if rate is 300 then resetSPort 1,380+16384+3072
  else if rate is 1200 then resetSPort 1,94+16384+3072
  else if rate is 2400 then resetSPort 1,46+16384+3072
  else if rate is 4800 then resetSPort 1,22+16384+3072
  else if rate is 9600 then resetSPort 1,10+16384+3072
  put rate into field "baudRate"
  clearModem
end setBaud

on clearModem
  set cursor to 4
  sendSPort 1,false,"AT" & return
  wait 2 seconds
  sendSPort 1,false,"ATZ" & return
  wait 2 seconds
  set cursor to browse tool
end clearModem


on openStack
  global theBuffer,fieldLines,baudRate

  hide menuBar

  openSPort 1

  put field "baudRate" into baudRate
  setBaud baudRate
  put bufferSPort(1,0,10240) into theBuffer

  get the rect of card field "inField"
  put item 4 of it into upper
  put item 2 of it into lower
  subtract lower from upper
  divide upper by the textHeight of card field "inField"
  put trunc(upper) into fieldLines

  hide message box
end openStack


on closeStack
  global theBuffer
  get bufferSPort(1,theBuffer,0)
end closeStack